PopulatePartial Method Example

The following example uses the PopulatePartial method after changing a replica filter.

Sub PopulatePartialX()

    Dim tdfCustomers As TableDef
    Dim strFilter As String
    Dim dbsTemp As Database

    ' Open the partial replica in exclusive mode.
    Set dbsTemp = OpenDatabase("F:\SALES\FY96CA.MDB", True)

    With dbsTemp
        Set tdfCustomers = .TableDefs("Customers")

        ' Synchronize with full replica
        ' before setting replica filter.
        .Synchronize "C:\SALES\FY96.MDB"

        strFilter = "Region = 'CA'"
        tdfCustomers.ReplicaFilter = strFilter

        ' Populate records from the full replica.
        .PopulatePartial "C:\SALES\FY96.MDB"

        .Close
    End With

End Sub